home *** CD-ROM | disk | FTP | other *** search
- object fsDescription: TfsDescription
- Left = 344
- Top = 182
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Description'
- ClientHeight = 150
- ClientWidth = 395
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poDefault
- Scaled = False
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl: TbsSkinPageControl
- Left = 7
- Top = 9
- Width = 382
- Height = 96
- ActivePage = tsChange
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabIndex = 0
- TabOrder = 1
- OnChange = PageControlChange
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clBtnText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultItemHeight = 20
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'tab'
- object tsChange: TbsSkinTabSheet
- Caption = 'Change to'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- OnResize = tsChangeResize
- object LDescription: TLabel
- Left = 14
- Top = 13
- Width = 149
- Height = 13
- Caption = 'Description for selected images'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object eDescription: TbsSkinEdit
- Left = 14
- Top = 32
- Width = 351
- Height = 20
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 14
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- UseSkinFont = True
- DefaultWidth = 0
- DefaultHeight = 20
- ButtonMode = False
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'editlight'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = eDescriptionChange
- OnKeyDown = eDescriptionKeyDown
- end
- end
- object tsGetFrom: TbsSkinTabSheet
- Caption = 'Get from'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = 14
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- object LDate1: TLabel
- Left = 33
- Top = 30
- Width = 342
- Height = 11
- AutoSize = False
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate2: TLabel
- Left = 35
- Top = 60
- Width = 334
- Height = 11
- AutoSize = False
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate3: TLabel
- Left = 33
- Top = 90
- Width = 342
- Height = 11
- AutoSize = False
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate4: TLabel
- Left = 33
- Top = 120
- Width = 342
- Height = 11
- AutoSize = False
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object LDate5: TLabel
- Left = 33
- Top = 148
- Width = 342
- Height = 11
- AutoSize = False
- Caption = ' '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = 11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object rbEXIFImageDescription: TAMCheckRadioBox
- Left = 14
- Top = 10
- Width = 124
- Height = 20
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = True
- GroupIndex = 1
- Caption = 'EXIF Image Description'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- object rbEXIFUserComment: TAMCheckRadioBox
- Left = 14
- Top = 40
- Width = 108
- Height = 20
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'EXIF User Comment'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- object rbIPTCCaption: TAMCheckRadioBox
- Left = 14
- Top = 70
- Width = 76
- Height = 20
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'IPTC Caption'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- object rbJPEGComment: TAMCheckRadioBox
- Left = 14
- Top = 100
- Width = 87
- Height = 20
- TabOrder = 3
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'JPEG Comment'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- object rbFileName: TAMCheckRadioBox
- Left = 14
- Top = 130
- Width = 58
- Height = 20
- TabOrder = 4
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'radiobox'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = True
- Checked = False
- GroupIndex = 1
- Caption = 'File name'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- end
- end
- object cntFooter: TAMContainer
- Left = 0
- Top = 112
- Width = 395
- Height = 38
- Align = alBottom
- OnResize = cntFooterResize
- DoubleBuffered = False
- object bOk: TbsSkinButton
- Left = 222
- Top = 7
- Width = 75
- Height = 24
- TabOrder = 0
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Ok'
- NumGlyphs = 2
- Spacing = 1
- Default = True
- ModalResult = 1
- end
- object bCancel: TbsSkinButton
- Left = 310
- Top = 7
- Width = 75
- Height = 24
- TabOrder = 1
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'buttonlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- AllowAllUp = False
- TabStop = True
- CanFocused = True
- Down = False
- GroupIndex = 0
- Caption = 'Cancel'
- NumGlyphs = 2
- Spacing = 1
- Cancel = True
- ModalResult = 2
- end
- object rbAppend: TAMCheckRadioBox
- Left = 14
- Top = 10
- Width = 98
- Height = 20
- TabOrder = 2
- SkinData = SkinDataModule.SkinData
- SkinDataName = 'checkboxlight'
- DefaultFont.Charset = DEFAULT_CHARSET
- DefaultFont.Color = clWindowText
- DefaultFont.Height = 13
- DefaultFont.Name = 'Tahoma'
- DefaultFont.Style = []
- DefaultWidth = 0
- DefaultHeight = 0
- UseSkinFont = True
- ForcedColorUse = False
- ForcedColor = clBlack
- Flat = True
- ShowHint = True
- CanFocused = False
- Radio = False
- Checked = False
- GroupIndex = 0
- Caption = 'Append to current'
- OnClick = rbEXIFImageDescriptionClick
- AutoSize = True
- end
- end
- object SkinForm: TbsBusinessSkinForm
- GradientStartColor = clBlack
- GradientEndColor = clBlack
- DrawBackground = True
- ShowIcon = False
- MaximizeOnFullScreen = False
- AlphaBlend = False
- AlphaBlendAnimation = False
- AlphaBlendValue = 200
- ShowObjectHint = False
- MenusAlphaBlend = False
- MenusAlphaBlendAnimation = False
- MenusAlphaBlendValue = 200
- DefCaptionFont.Charset = DEFAULT_CHARSET
- DefCaptionFont.Color = clBtnText
- DefCaptionFont.Height = 13
- DefCaptionFont.Name = 'Tahoma'
- DefCaptionFont.Style = [fsBold]
- DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
- DefInActiveCaptionFont.Color = clBtnShadow
- DefInActiveCaptionFont.Height = 13
- DefInActiveCaptionFont.Name = 'Tahoma'
- DefInActiveCaptionFont.Style = [fsBold]
- DefMenuItemHeight = 20
- DefMenuItemFont.Charset = DEFAULT_CHARSET
- DefMenuItemFont.Color = clWindowText
- DefMenuItemFont.Height = 13
- DefMenuItemFont.Name = 'Tahoma'
- DefMenuItemFont.Style = []
- UseDefaultSysMenu = True
- SkinData = SkinDataModule.SkinDataDlg
- MinHeight = 0
- MinWidth = 0
- Magnetic = False
- MagneticSize = 5
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biRollUp]
- Left = 285
- Top = 213
- end
- object IO: TImageEnIO
- PreviewFont.Charset = DEFAULT_CHARSET
- PreviewFont.Color = clWindowText
- PreviewFont.Height = -11
- PreviewFont.Name = 'Tahoma'
- PreviewFont.Style = []
- Left = 264
- Top = 176
- end
- end
-